home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
bcpp
/
owlbwcc
/
bwrpoint.cpp
< prev
next >
Wrap
C/C++ Source or Header
|
1992-02-02
|
5KB
|
131 lines
/**********************************************************************/
/* BWRPOINT.cpp by Bob Bourbonnais */
/* released to the public domain 2/2/92 */
/* This program shows how to process radio buttons */
/* using Pointers to the radio buttons. */
/**********************************************************************/
#include <owl.h>
#include <dialog.h>
#include "bwcc.h" // needed for BWCC
#include "bradio.h" // needed for BWCC radio buttons
#include "bwradely.h" // needed for equates
class TMyDialog : public TDialog
{
public:
TBRadioButton *pUnit12Test , *pUnit12Phase1, // pointers to
*pUnit12Phase2, *pUnit12Phase3, // radio buttons
*pUnit13Test , *pUnit13Phase1,
*pUnit13Phase2, *pUnit13Phase3;
TMyDialog(LPSTR lpDialogName); // Constructor
virtual void Ok(RTMessage Msg); // redefines the DDVT function
// for the OK button #1
// as defined in Base class
// TDialog
virtual void DefChildProc(RTMessage Msg); // default button handler
};
void TMyDialog::TMyDialog(LPSTR lpDialogName) // constructor calls
: TDialog(NULL,lpDialogName) // base class constructor
{
BWCCGetVersion(); // activate Borland Windows Custom Controls
pUnit12Test = new TBRadioButton(this,IDB_UNIT12_TEST, NULL); //links up
pUnit12Phase1 = new TBRadioButton(this,IDB_UNIT12_PHASE1,NULL); //Radio
pUnit12Phase2 = new TBRadioButton(this,IDB_UNIT12_PHASE2,NULL); //Button
pUnit12Phase3 = new TBRadioButton(this,IDB_UNIT12_PHASE3,NULL); //Pointers
pUnit13Test = new TBRadioButton(this,IDB_UNIT13_TEST, NULL); //with
pUnit13Phase1 = new TBRadioButton(this,IDB_UNIT13_PHASE1,NULL); //Radio
pUnit13Phase2 = new TBRadioButton(this,IDB_UNIT13_PHASE2,NULL); //Buttons
pUnit13Phase3 = new TBRadioButton(this,IDB_UNIT13_PHASE3,NULL); //defined
//in .RC
}
void TMyDialog::Ok(RTMessage Msg) // Redefines button handler inherited
{ // from TDailog for Button #1 IDOK
char szMyString[180];
if (pUnit12Test->GetCheck()==BF_CHECKED) // find out the ON/OFF
{ // status
lstrcpy(szMyString,"Unit #12 is in Test Mode.\n");
}
else if (pUnit12Phase1->GetCheck()==BF_CHECKED)
{
lstrcpy(szMyString,"Unit #12 is in Phase 1 of Operation.\n");
}
else if (pUnit12Phase2->GetCheck()==BF_CHECKED)
{
lstrcpy(szMyString,"Unit #12 is in Phase 2 of Operation.\n");
}
else
{
lstrcpy(szMyString,"Unit #12 is in Phase 3 of Operation.\n");
}
if (pUnit13Test->GetCheck()==BF_CHECKED)
{ // status
lstrcat(szMyString,"Unit #13 is in Test Mode.\n");
}
else if (pUnit13Phase1->GetCheck()==BF_CHECKED)
{
lstrcat(szMyString,"Unit #13 is in Phase 1 of Operation.\n");
}
else if (pUnit13Phase2->GetCheck()==BF_CHECKED)
{
lstrcat(szMyString,"Unit #13 is in Phase 2 of Operation.\n");
}
else
{
lstrcat(szMyString,"Unit #13 is in Phase 3 of Operation.\n");
}
BWCCMessageBox(HWindow,szMyString,"Update on Unit #12",MB_OK); //output
//status
TDialog::Ok(Msg); //default OK handler to close dialog box
}
void TMyDialog::DefChildProc(RTMessage Msg) // default button handler
{
if ((Msg.WParam >= IDB_UNIT12_TEST)&(Msg.WParam <= IDB_UNIT13_PHASE3))
{ // If a radio button is pressed then
TDialog::DefChildProc(Msg); // pass message along to base class
} // to check the box
else
{
MessageBeep(0); // make sound and display
BWCCMessageBox(HWindow,"Not Implemented", // a BWCC message box
"Feature",MB_OK);
TDialog::DefChildProc(Msg); // pass messages along
} // to base class handler
}
class TDialog1App : public TApplication // Application Class to contain
{ // the application
public:
TDialog1App(LPSTR lpName, HANDLE hInstance, // constructor calls the
HANDLE hPrevInstance, // base class constructor
LPSTR lpCmdLine, int nCmdShow)
:TApplication(lpName, hInstance,
hPrevInstance,
lpCmdLine, nCmdShow) {};
virtual void InitMainWindow(); // overrides base class InitMainWindow
};
void TDialog1App::InitMainWindow() // to initialize a dialog box
{ // as the main window
MainWindow = new TMyDialog("MAINWINDOWDIALOG");
}
int PASCAL WinMain(HANDLE hInstance, // main entry point from
HANDLE hPrevInstance, // windows to this program
LPSTR lpCmdLine , int nCmdShow)
{
TDialog1App Dialog1("Dialog Tester",hInstance, // create instance of
hPrevInstance, // the dialog application
lpCmdLine,nCmdShow);
Dialog1.Run(); // run it
return (Dialog1.Status); // exit
}
/**********************************************************************/